home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog66 < prev    next >
Encoding:
Text File  |  1995-06-29  |  702 b   |  33 lines
  1. # simple pushButton test
  2. xtAppInitialize -class Program
  3.  
  4. xmNotebook .notebook managed
  5.  
  6. for {set i 0} {$i <= 10} {incr i} {
  7.     xmFrame .notebook.frame$i managed \
  8.     -notebookChildType page \
  9.     -pageNumber $i
  10.     xmLabel .notebook.frame$i.label managed \
  11.     -labelString "page $i"
  12.     xmLabel .notebook.label$i managed \
  13.     -labelString "page $i" \
  14.     -notebookChildType status_area \
  15.     -pageNumber $i
  16. }
  17.  
  18. for {set i 4} {$i <= 10} {incr i 3} {
  19.     xmPushButton .notebook.btn$i managed \
  20.     -labelString "major $i" \
  21.     -notebookChildType major_tab \
  22.     -pageNumber $i
  23. }
  24.  
  25. xmPushButton .notebook.btn managed \
  26.     -labelString "minor 2" \
  27.     -notebookChildType minor_tab \
  28.     -pageNumber 2
  29.  
  30. . realizeWidget
  31.  
  32. . mainLoop
  33.